home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / slideshow.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  667b  |  20 lines
  1. 5 IF A=0 THEN DIM A$(25)
  2. 10 IF A=0 THEN A=1:LOAD"HRSUPP.D",8,1
  3. 15 IF A=2 THEN 120
  4. 20 BA=6*16^3:REM BASE ADDRESS
  5. 30 IN=BA
  6. 40 RS=BA+3
  7. 50 CL=BA+6
  8. 60 I=-1
  9. 70 I=I+1:READ A$(I):IF A$(I)<>"END" THEN 70
  10. 80 PRINT"HIT 'C' TO CONTINUE":FOR J=0TOI:PRINTJ;A$(J):NEXTJ
  11. 90 INPUT"WHICH NUMBER";N
  12. 100 IF N=I THEN GOSUB130:END
  13. 110 SYSIN:A=2:LOADA$(N),8,1
  14. 120 GET A$:IFA$="C"THENGOSUB130:GOTO80
  15. 125 GOTO120
  16. 130 SYSCL:SYSRS:RETURN
  17. 150 DATA SLADY.D
  18. 160 DATA RONNIE.D
  19. 300 DATA END
  20.